home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / bestofsd.lha / NewForms.AMOS / NewForms.amosSourceCode
AMOS Source Code  |  1992-10-20  |  815b  |  24 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. 'Date: 14/5 1996 
  10. 'Lyssnar p� veckans tolva... 
  11.  
  12. Degree 
  13. Screen Open 0,320,256,16,Lowres : Flash Off : Curs Off : Cls 0
  14. Hide 
  15. Palette $500,$611,$722,$833,$944,$A55,$B66,$C77,$D88,$E99,$FAA,$FBB,$FCC,$FDD,$FEE,$FFF
  16.  
  17. For X=-159 To 159 Step 1
  18.    For Y=-127 To 127 Step 1
  19.       P=(Abs(X)+Abs(Y)+Sin(X+Y)*100-Cos(Y-X*2)*74)/(16)
  20.       If P<1 Then P=1
  21.       If P>15 Then P=15
  22.       Plot 159+X,127+Y,P
  23.    Next 
  24. Next